:: Monad m => (a -> b) -> (m a -> m b) -package:semigroupoids package:utility-ht